home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00716_AC-bt chpt.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.9 KB  |  80 lines
  1. on MouseClock monBt
  2.   global gMsCast, gLabel, gAcLabel, gSurvolPrec, gThLabel
  3.   if getPos(list("DE", "SU", "TH", "TR"), monBt) <> 0 then
  4.     set gAcLabel to "AC:OU"
  5.     set gLabel to monBt & ":IN"
  6.     continue()
  7.   else
  8.     alert("Partie en cours de d┼╜velopppement")
  9.   end if
  10. end
  11.  
  12. on MouseClick monBt
  13.   global gMsCast, gLabel, gAcLabel, gSurvolPrec, gThLabel, g1erSprLoc, gMaxBoutons, gIndSel, gBoutons, gEtudAct, g1erSprChr
  14.   if monBt = "OU" then
  15.     set gAcLabel to "AC:OU"
  16.     puppetSound(0)
  17.     set gLabel to "BYE"
  18.   else
  19.     if monBt = "DE" then
  20.       set gAcLabel to "AC:OU"
  21.       set gLabel to "DE:mon"
  22.       continue()
  23.     else
  24.       if getPos(list("SU", "TH", "PH"), monBt) <> 0 then
  25.         set gAcLabel to "AC:OU"
  26.         set gLabel to monBt & ":IN"
  27.       else
  28.         if monBt = "DX" then
  29.           beep()
  30.         else
  31.           if monBt = "MI" then
  32.             repeat with i = g1erSprChr to g1erSprLoc + 12
  33.               set the visible of sprite i to 0
  34.             end repeat
  35.             set the visible of sprite 2 to 1
  36.             set the visible of sprite (g1erSprLoc + 14) to 1
  37.             set the visible of sprite (g1erSprLoc + 15) to 1
  38.             puppetSound(0)
  39.             JukeBox(0, "J.AIF")
  40.           else
  41.             beep()
  42.           end if
  43.         end if
  44.       end if
  45.     end if
  46.   end if
  47.   set gSurvolPrec to -1
  48. end
  49.  
  50. on mouseDown
  51.   global g1erSprLoc, gNumSpr
  52.   curseur(2)
  53.   go(the frame)
  54.   set gNumSpr to 0
  55.   repeat with i = g1erSprLoc to g1erSprLoc + 10
  56.     if rollOver(i) then
  57.       set gNumSpr to i
  58.       exit repeat
  59.     end if
  60.   end repeat
  61. end
  62.  
  63. on mouseUp
  64.   global g1erSprLoc, gNumSpr
  65.   curseur(1)
  66.   set monNumSpr to -1
  67.   repeat with i = g1erSprLoc to g1erSprLoc + 10
  68.     if rollOver(i) then
  69.       set monNumSpr to i
  70.       exit repeat
  71.     end if
  72.   end repeat
  73.   if (monNumSpr = gNumSpr) and (gNumSpr <> 0) then
  74.     set monBt to chars(word 1 of the name of cast the castNum of sprite gNumSpr, 4, 5)
  75.     MouseClick(monBt)
  76.   else
  77.     pass()
  78.   end if
  79. end
  80.